home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / pcc / v04n07 / dcat.bas < prev    next >
BASIC Source File  |  1991-06-19  |  2KB  |  43 lines
  1. 10 CLS:KEY OFF:WHATDRV$ = "A:":WHATDIR$ = "C:\DCAT":SHELL "cd "+WHATDIR$
  2. 20 PRINT "At the OK prompt --type RUN":OPEN "F_CAT.LST" FOR OUTPUT AS #1:CLOSE
  3. 30 SAVE "DCAT.BAS":DELETE 20-30
  4. 40 CLS:PRINT "ALL entries must be in UPPERCASE":PRINT
  5. 50 INPUT "<A>dd  <F>ind <D>elete <Q>uit > ";ANS$
  6. 60 IF ANS$ = "A" THEN 80 ELSE IF ANS$ = "F" THEN 220
  7. 70 IF ANS$ = "D" THEN 250 ELSE IF ANS$ = "Q" THEN 330 ELSE 40
  8. 80 INPUT "Diskette label identifier (Enter exits) > ",ID$:IF ID$ = "" GOTO 40
  9. 90 L = LEN(ID$):IF L <>2 THEN PRINT:PRINT "2 character input required":GOTO 80
  10. 100 OPEN "F_CAT.LST" FOR INPUT AS #1:PRINT "CHECKING LABELS....."
  11. 110 IF EOF (1) THEN CLOSE:GOTO 150
  12. 120 INPUT #1, LN$
  13. 130 IF LEFT$(LN$,2) = ID$ THEN PRINT:PRINT "This label exists":CLOSE:GOTO 80
  14. 140 GOTO 110
  15. 150 SHELL "CHKDSK "+WHATDRV$+" /F":CLS:PRINT "ADDING FILES....."
  16. 160 SHELL "CHKDSK "+WHATDRV$+"/V > GETDSK$.$_$"
  17. 170 OPEN "GETDSK$.$_$" FOR INPUT AS #1:OPEN "F_CAT.LST" FOR APPEND AS #2
  18. 180 INPUT #1, FSTR$:LSET FSTR$ = FSTR$
  19. 190 IF LEFT$(FSTR$,2) <> WHATDRV$ THEN 210
  20. 200 PRINT #2, ID$ +" <--> "+FSTR$
  21. 210 IF EOF (1) THEN 320 ELSE 180
  22. 220 INPUT "Enter search string (Enter exits) > ",SRCH$
  23. 230 IF SRCH$ = "" THEN 40
  24. 240 SHELL "FCAT "+SRCH$:CLOSE:GOTO 40
  25. 250 OPEN "F_CAT.LST" FOR INPUT AS #3:OPEN "TMPDSK$.$_$" FOR OUTPUT AS #2
  26. 260 INPUT "Label identifier to delete (Enter exits) > ",DEL$
  27. 270 PRINT "DELETING......":IF DEL$ = "" THEN 40
  28. 280 INPUT #3, FSTR$:IF NOT EOF (3) THEN 290 ELSE 310
  29. 290 IF LEFT$(FSTR$,2) = DEL$ THEN 280 ELSE 300
  30. 300 PRINT #2, FSTR$:GOTO 280
  31. 310 CLOSE:KILL "F_CAT.LST":SHELL "RENAME TMPDSK$.$_$ F_CAT.LST":GOTO 40
  32. 320 CLOSE:SHELL "DEL GETDSK$.$_$":GOTO 40
  33. 330 CLOSE:SHELL "CD \":SYSTEM
  34.  
  35. FCAT.BAT
  36.  
  37. ECHO OFF
  38. CLS
  39. ECHO Searching.....
  40. FIND "%1" | MORE < F_CAT.LST
  41. PAUSE
  42. CLS
  43.